#########################################################################
# Time-stamp: <03/11/01 14:18:28 ostolop>
#
# Ordination dynamic data routines
#########################################################################
package EP::EPC::Interface::Ordination;

use strict;

use EP::Legacy::EPDATA;
use EP::Legacy::EPCLUST;
use EP::EPC::Interface;

use EP::Config;

use CGI qw/:standard/;

sub newDD {
  my $proto = shift;
  my $ep_query_doc = shift;
  my $query = shift;
  my $DDD = shift;

  my $class = ref($proto) || $proto;
  my $self  = {};
  bless $self, $class;
  $self->initialize($ep_query_doc, $query, $DDD);
  return $self;
}

sub initialize {
  my $self = shift;
  $self->{epc_query} = shift;
  $self->{query}     = shift;
  $self->{DDD}       = shift;

  return;
}

1;


















